% My assignment is to design "M" and "s".

input font1base

proofing:=1; % to get a hard copy

vardef char.M =  %draw letter "M"

     setwidth 0.75em;
     pos1(thinwidth,0);
     pos2(thinwidth,10);
     pos3(1.1thickwidth,0);
     pos4(1.1thickwidth,0);
     pos5(thinwidth,0);
     pos6(thinwidth,0);
     pos7(1.1thickwidth,0);
     pos8(1.1thickwidth,-10);
     y1=capheight; x1=x2;
     z2l=(0.1em,0);
     y3=capheight; z4=(0.5w,0);
     x3l=x1;  
     y6=capheight; x5l=x4; y5=0;
     x6r=x7; x7r=w - 0.1em;  
     y7=capheight; 
     y8=0; x8=x7;
     stroke(1,2,0.3,0,0.1);
     stroke(3,4,0.8,0,0.1);
     stroke(5,6,0.2,0.1,0);
     stroke(7,8,0.3,0.1,0);
     labelpos(1,2,3,4,5,6,7,8);
   % end of the fourth brush

enddef;



vardef char.s =

      setwidth 0.4em;
      pos1(thinwidth,-90);
      pos2(thinwidth,-90);
      pos3(thinwidth,-90);
      pos4(thinwidth,-45);
      pos5(thinwidth,0);
      pos6(thinwidth,45);
      pos7(thinwidth,75);
      pos8(thinwidth,45);
      pos9(thinwidth,0);
      pos10(thinwidth,-45);
      pos11(thinwidth,-90);
      pos12(thinwidth,-90);
      pos13(thinwidth,-90);

      y3l=1.05xheight; y1=0.75xheight;
      y5=y1; y7= 0.5xheight; y9= 0.25xheight;
      y11r= 0.05xheight; y13=y9;  
      x3 = 0.5w; x1r=x3+0.5w;       
      x5l=x3-0.5w; x7 = x3; x9r = x1r;
      x11 = x3; x13= x5l;
      
      x2l = 0.71[x1,x3];
      y2l = 0.71[y1l,y3l];
      dz3= (-1,0); 
      x4l = 0.71[x3l,x5l];
      y4l = 0.71[y3l,y5l];
      dz5=(0,-1);
      x6 = 0.35[x5,x7];
      y6 = 0.29[y5,y7];
      x8 = 0.35[x7,x9];
      y8 = 0.71[y7,y9];
      dz9=(0,-1);
      x10= 0.71[x11,x9];
      y10= 0.29[y9,y11];
      dz11=(-1,0);
      x12= 0.35[x11,x13];
      y12= 0.29[y11,y13];
    
      curve(1,2,3); curve(3,4,5);
      curve(5,6,7); curve(7,8,9);
      curve(9,10,11); curve(11,12,13);
      labelpos(1,2,3,4,5,6,7,8,9,10,11,12,13);
      
enddef;

test.normal(char.M);
test.normal(char.s);


end